home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / busition / apex1 / startrk.inf < prev   
Encoding:
Text File  |  1992-09-21  |  1.4 KB  |  73 lines
  1. ;; This is the installation script StarTrack 1.2 -  09/21/1992
  2.  
  3. DefineVariables
  4.   Logical [InstallBoundVersion] := Y
  5. ;;  Logical [BrowseReadMe] := Y
  6.   Logical [Installed] := N
  7. EndDefineVariables
  8.  
  9. Do SetupINSTALIT
  10.  
  11. Dialog
  12.   .cThanks for using StarTrack.
  13.   .cLet's do the installation!
  14.  
  15.   .cThis is a Sharware program.
  16.  
  17.   .cIf you have any problem with installation,
  18.   .cplease call APEX Computer Services at
  19.   .c(818) 458-3344
  20. EndDialog
  21.  
  22.  
  23. :Main
  24.  
  25. GoToXY @xy(1,3)
  26.  
  27.  
  28. Do Install
  29.  
  30. Do ByeBye
  31.  
  32.  
  33. Procedure Install
  34.   QueAllFiles
  35. ;;;;  DetermineInstallationDrive QueSize RequireFixed
  36.   DetermineInstallationDrive 1,600,000 RequireFixed
  37.   DetermineInstallationDirectory 1,600,000 RequireFixed InstallationDrive:\STARTRK
  38.   GetQuedFiles
  39.   [Installed] := Y
  40.   ChangeDirectoryTo [InstallationDirectory]
  41.   ;; Set up MediaBuilder's configuration files for the chosen directories,
  42.   ;; etc.
  43.  
  44.   ClearScreen
  45. EndProcedure
  46.  
  47.  
  48.  
  49. Procedure ByeBye
  50.   Dialog WhiteOnBrown
  51.     Thanks again and best wishes.
  52.  
  53.   EndDialog
  54.   SoLong
  55. EndProcedure
  56.  
  57.  
  58.  
  59. Procedure SetupINSTALIT
  60.   LetButton <F9> Do Terminate
  61.   SetBackgroundCharTo B0
  62.   SetShadowAttrTo BlackOnBlack
  63.   SetScreenAttrTo WhiteOnBlue
  64.   SetTopLineAttrTo WhiteOnRed
  65.   SetTopLineTo " INSTALLING   S t a r T r a c k "
  66.   SetBottomLineAttrTo WhiteOnLightGray
  67.   SetBottomLineTo "  Call (818)458-3344 for assistance.     <Ctrl - X> = Quit  "
  68.   SetExitMessageTo  Thanks again!
  69. EndProcedure
  70.  
  71.  
  72. EndScript
  73.